(count-lines): In selective-display case,

adjust value if end is not at bol.

diff --git a/lisp/simple.el b/lisp/simple.el
index e6a24cb49a1778ec4462434df02cad3bbde6c3f5..85557739654a4443318fc039e8d8c5e54b981ba4 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -332,7 +332,11 @@ and the greater of them is not at the start of a line."
                (setq done (+ 40 done)))
              (while (re-search-forward "[\n\C-m]" nil t 1)
                (setq done (+ 1 done)))
-             done)
+             (goto-char (point-max))
+             (if (and (/= start end)
+                      (not (bolp)))
+                 (1+ done)
+               done))
          (- (buffer-size) (forward-line (buffer-size))))))))
 
 (defun what-cursor-position ()